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1627 II PLOTTER 



PART I 



THE CALCOMP 1627 II PLOTTER 

A CALCOMP 1627 II drum plotter with a 30-inch paper width 
is attached to the CDC 3300. To permit more efficient use of 
the plotter, five plot subroutines are in the OS-3 Fortran 
Library. There are three types of subroutines. The types and 
their names are: 

Type Subroutine 

Axis Definition AXISXY, SAXES 

Pen Movement PLOTXY, RESET 

Labeling LABEL 

Since the plotter can only move in eight directions in 
increments of 0.01 inch, the output is buffered to increase 
efficiency. 

As a rule, it is not a good idea to retrace plots. The 
algorithm used to determine which direction to go may be out of 
phase on the way back and give a double line. 

The plotter is equipped by a gEQUIP, (lun) = PLOT where (lun) 
is the logical unit number. 

When finished plotting, a call to AXISXY (or SAXES, if it 
was used to define the axes) with LUN = 0, empties the buffer and 
performs the necessary housekeeping to terminate a plot. This, 
used only once, is the last call for every program. 

In plotting from the teletypewriter, LUN may be equipped as a 
file, i.e., #EQUIP,LUN = FILE. Plotter information will be stored 
on this file which may be released if data is found to be in error. 
The file is plotted by #EQUIP, no. = PLOT and #COPY, I = LUN,0 = no 
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TERMS 

(lun) : Logical unit number of the output device. 

Used for LUN and in EQUIP statement. 

Tick mark: A mark on an axis to indicate minor and major 

intervals. They are marked during axis plotting 
as a function of AXISXY. 

Logical unit: A unit interval which represents the data to 

be graphed. For example, a 20 inch axis may 
be divided into 200 logical units from -100 
to +100, 2 logical units from to +2, or as 
required to plot the graph. The units need 
not be the same for both axes. 

Oricfin * 

y " The point where the X and Y axes cross, usually 

but not necessarily (0,0), in terms of logical 

units. Other examples are: 

X = 1960, Y = $1 million 
X = -10 , Y = 35 
X = 163 , Y = 
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Figure 1 
Illustrations of Plotting Parameters 



4. 
I. AXIS DEFINITION (AXISXY, SAXES) 

This function defines the axes and in the case of AXISXY, 

draws and marks major and/or minor intervals on them. 

Form ; 

IF (AXISXY (LUN,LX,LY,XTIC, XL, YL,XLOW,YLOW,XORG,YORG, YTIC,NNT) ) n,m 

Where "n" and "m" are statement labels. The function 
branches to "n" if the parameter list is legal and to "m" if one 
or more parameters are illegal, which will result in a diagnostic 
The programmer should then terminate the last plot with a call to 
AXISXY (or SAXES) with LUN = 0. The IF statement may also be 
used as a three way branch, if desired. SAXES uses the same 
parameter list, but does not draw the axes and tick marks. 

PARAMETERS TYPE 

i LUN (I) The logical unit number for the 

output device, which must have been 
previously defined in a 8EQUIP state- 
ment, for either the plotter or 
magnetic tape . 
Examples: 8EQUIP,01 = PLOT 

?EQUIP,31 = MT, 6437 

with write ring. 

Length of X-Axis in inches (1-27). 

Length of Y-Axis in inches (1-200). 

Interval between tick marks on the 
X-Axis in logical units. 

Length of X-Axis in logical units. 

Length of Y-Axis in logical units. 



/o 


LX 


(I) 


/v 


LY 


(I) 


1 


XTIC 


(F.P.) 


Z*Al 


XL 


(F.P.) 


2*Ai- 


YL 


(F.P.) 
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PARAMETERS TYPE 



C/-41 XLOW 



CY-Ai- YLOW 







XORG 
YOR'G 
YTIC 

NNT 



(F.P.) 

(F.P.) 

(F.P.) 
(F.P.) 
(F.P.) 

(I) 



Lowest value on the X-Axis (may be 
negative) in logical units. 

Lowest value on the Y-Axis (may be 
negative) in logical units. 

X-Axis origin in logical units. 

Y-Axis origin in logical units. 

Optional . Interval between tick marks 
on the Y-Axis in logical units. 

Optional . Number of small tick intervals 
within each large tick interval. (Small 
for both axes. ) 
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PLOTXY: This function moves the pen from its present position 
to the set of coordinates specified in the call. 



Form : 

IF (PLOTXY (X , Y , IPOS , IMARK) ) n ,m 

Where "n". is the branch for legal parameters and "m" is 
the branch for illegal parameters as in AXISXY. 

or CALL PLOTXY (X,Y, IPOS, IMARK) 

A call for movement to new coordinates outside the 
boundaries as defined by AXISXY will result in diagnostics. 
One-half inch and three-fourths inch borders are 
provided for labeling purposes to the left of XLOW and below 
YLOW, respectively. However, when the Y value is too high, 
the "upper limit" value replaces the value in the call so that 



the pen will not go beyond the upper limit. The same is 
true of the right-hand limit. Therefore, the programmer 
should terminate plotting when the values go beyond these 
limits. 



PARAMETERS 



TYPE 



X 


(F.P.) 


Y 


(F.P.) 


IPOS 


(I) 



IMARK 



(I) 



The new X-coordinate in logical units 
The new Y-coordinate in logical units 

Pen position during movement. 

= pen up (off of paper between 
points; use for plotting points or 
moving pen to labeling position) , 

1 = pen down (on paper between points; 
draws a connecting line between suc- 
cessive coordinates). 

Data mark (if any) . Values 1-32 
generate marks, other values do not. 
Odd numbers define small marks (2-4 
0.01 inch increments long), marks de- 
fined by even numbers correspond to 
marks defined by odd numbers, but are 
twice as large. 



NUMBER 

1-2 
3-4 
5-6 
7-8 
9-10 
11-12 



DATA MARKS 

up arrow, datum at the point, 
right arrow, datum at the point, 
down arrow, datum at the point, 
left arrow, datum at the point, 
vertical cross, datum at its center 
X within a box, datum at its center 



MARK 

t 
-> 

4- 
-*- 

+ 

iXi 
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NUMBER DATA MARK MARK 

13-14 hourglass dot, datum at lower left X 
corner. 

15-16 diagonal cross, datum at the center. X 

17-18 vertical caret, datum at the point. v 

19-20 horizontal caret, datum at the point. > 

21-22 right angle, L orientation, datum at 

point. L 

23-24 same, turned 180 degrees, datum at point. 1 

25-26 tee, on its side, datum at intersection. h 

27-28 tee, datum at intersection. T 

29-30 vertical bar, datum at its center. '■ 

31-32 horizontal bar, datum at its center. 



There are numerous methods of plotting a graph. Generaxxy, 
however, the X value is incremented and the corresponding Y 
value is either calculated or read in from an array where it 
was previously stored. It should be remembered that the 
plotter can increment a minimum of 0.01 inches. 

RESET ; This function can be used to move the pen in the + 
or - Y direction. 

Form : 

CALL RESET (ISPACES ,LUN) 

The primary use for the RESET function is to reset the 
pen for labeling the plot below the boundaries. Since the 
function redefines the axes such that the point to which it 
is moved becomes (0,0) , it should be used with care, normally 
after plotting is completed. 
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PARAMETERS 



ISPACES 



LUN 



TYPE 



(I) 



(I) 



The number of 0.01 inch increments 
to move in the Y-direction. 
Positive is for plus Y, negative 
for minus Y directions. 

Logical unit number. 



111 • LABELING (LABEL) 

LABEL ; This function may be used to draw alphanumeric 
characters and symbols on the plotter. It is the responsi- 
bility of the programmer to position the pen for each label 
and make sure that the label will fit on the plotting surface 
Labels are not restricted by the right hand axis boundary, 
but by the paper width. When this limit is reached, the pen 
returns to the label's starting X-position, one line down, 
and continues labeling. The data must be read into an array. 
Since it must be in BCD, an ENCODE may be necessary (See 
sample program) . 



Form: 



CALL LABEL(INUM,ISIZE,IDIR,IARRAY(I) ) 



PARAMETERS 



INUM 



TYPE 



(I) 



The integer number of characters 

to be plotted by that call, including 

spaces. 
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ISIZE (I) Size of characters to be plotted, 

1-10. Size 1 is approximately 
1/12 inch square, others are 
appropriate multiples of this size. 

IDIR (I) Direction of character line. 

= +X, 1 = -Y, 2 = -X, 3 = +Y 
(other values undefined) e.g., this 
line is in the +X direction for 
normal axes. 

IARRAY(I)* Starting word address of the data 

to be plotted, i.e., the label (s). 

TYPE* depends on the type of the array used. 

This function is used both for labeling the axes and the 
plot, i.e., information about the plot such as the function 
it represents, the scale used, date, name, etc. The function 
must be reset for each new label position. 

IV. DIAGNOSTICS 

The programmer should terminate plotting for illegal 
parameters, which will cause diagnostics. It is often 
helpful to print values when they are illegal. 

AXISXY: AXSXY ERROR XX PLOT N, E.P. YYYYY, ZZZZZZZZ 
XX = Parameter in error. 

00 = LUN 

01 = LX (NOTE: there is no 03) 

02 = LY 
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04 = XL 

05 = YL 

06 = XORG 

07 = YORG 

LUN error terminates job with undefined logical unit, 

XLOW and YLOW give PLOTXY error messages. 

XTIC, YTIC, and NNT give no messages, but prevent 
plotting. 

N = Plot number. 

YYYYY = Octal location from which AXISXY was called. 

ZZZZZZZZ = Octal representation of illegal parameter 
(upper 24 bits if floating point) . 

PLOTXY : PLTXY ERROR XX PLOT N, E.P. YYYYY, ZZZZZZZZ 

XX = Error number. 1 = X parameter too high 

2 = X parameter too low 

3 = Y parameter too high 

4 = Y parameter too low 

N = Plot number. 

YYYYY = Octal location from which PLOTXY was called. 

ZZZZZZZZ = Octal representation of upper 24 bits of 
illegal floating point parameter. 

RESET ; (Reset errors are essentially irrecoverable) , 

RESET ERR X 

The logical unit specified is illegal 

X = 1, not within range 1-49. 

X = 2, unit has not been assigned. 

X = 3, unit is not plotter or magnetic tape. 

X = 4, actual equipment differs from last call. 
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V. COMMENTS 

7 
The plot or series of plots may be labeled with a "gLABEL, 

(lun) /information" , control card following the statement which 
equips the plotter = lun, "Information" may be any alpha- 
numeric information, commas, and periods, such as SAVE FOR 
DEAN, PROG PLOT. 

It is often advantageous to print out values used in the 
above subroutines, especially during the debugging stage. 

Many parts of a' plot may be handled in subroutines. An 
extensive set of subroutines has been written to handle items 
such as axes labeling, multiple plots, log scales, outlines, 
keys, etc. 

In addition, plots may be turned at 90 degree angles to 
allow a longer X axis. Plotting and labeling must be accounted 
for accordingly. Two plots may be located side by side only 
when the second is plotted with respect to the originally 
defined axes, or by turning the axes 90 degrees and plotting 
one above the other. The second graph to be plotted will 
appear above the first. Therefore, one should consider which 
direction, clockwise or counter-clockwise, to rotate the axes 
for appropriate positioning. 



12. 



VI. SAMPLE PROGRAM 

PROGRAM SAMPLE 

DIMENSION lARRAY(iO) 

READ (60,1) LUN , LX , LY , XTIC , XL , YL , XLOW , YLOX , XORG , YORG , YTIC 
1 FORMAT ( 312, 8F5.1) 

IF (AXISXY (LUN, LX,LY, XTIC, XL, YL, XLOW, YLOW, XORG, YORG, YTIC) ) 4,13 
4 READ(60,7) (IARRAY (I) , 1=1 , 10) 

X=XLOW 

DO 100 1=1,5 

CALL PLOTXY(X,-.2,0,0) 

X=X-t-XTIC 

ENCODE (4, 6, LIST) IARRAY (I) 
6 FORMAT (14) 
100 CALL LABEL (4, 1,0, LIST) 

Y=YLOW 

DO 2001=6,10 

CALL PLOTXY(-.4,Y,0,0) 

Y=Y+YTIC 

ENCODE ( 4 , 6 , LIST) IARRAY (I ) 
200 CALL LABEL (4, 1,0, LIST) 

IPOS=l 

X=XLOW 

DO 300 1=1,50 

Y=X**2 

CALL PLOTXY(X,Y,IPOS,l) 
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300 X=X+.l 

CALL AXISXY (0,0,0,0,0,0,0,0,0,0,0) 
7 FORMAT (514) 
END 



PART II 



ABSTRACTS OF 
READY-MADE 
PLOT PROGRAMS 



PART II 



ABSTRACTS OF READY-MADE PLOT PROGRAMS 
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CONTENTS (Subroutines) Pa 9 e 

AXPLTF 
AXPLTI 
CENTAR 
ENCLOSE 
GRAPHIC 
GRID 

GRIDMARK 
KEYl 
KEY 2 
LABELS 
LABELX 
LABELY 
LOG1 
LOG 2 
LOG3 
MLTIPLT 
NAME 
OUTLINE 
SCALEPLT (Output should be for TTY) 

This section provides an abstract of subroutines which are 
on Public File. These have been written to aid the prograiraner in 



17 

17 

18 

19 

21 

23 

25 

26 

26 

28 

29 

30 

31 

33 

35 

37 

40 

41 

42 



plotting. The programmer need only provide the values called for 
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in the parameter list and call the subroutine, which then does 
the plotting, labeling, etc. 

Comments : 

These routines are on public file and may be equipped 
as follows : 



[EQUIP, 1 = *name 



(NOTE: Asterisk denoting public 
file.) 



PROGRAM 



77 
88 

8LOAD,56,l 

T5T7M 



DATA (if any) 



(NOTE: The public file program 
or subroutine is loaded, 
too . ) 



Routine 
MLTIPLT 

L0G1 

L0G2 

LOG 3 

LABELX , LABELY , LABELS , 
OUTLINE , GRID , KEYl , KEY2 

GRAPHIC, CENTAR 

AXPLTI , AXPLTF , SCALEPLT , 
NAME , ENCLOSE , GRIDMARK 



Equip and Load 

*MLTIPLT 
*PLTRTNS 

*L0G1 
*PLTRTNS 

*L0G2 
*PLTRTNS 

*L0G3 
*PLTRTNS 

*PLTRTNS** 

*GRAPHIC** 
*PLTSUBS** 



**Routines may be loaded individually or in any combination 
after they are equipped. (See following page.) 
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To load part of a public file subroutine package, use the 
following sequence of commands (for remote users only) : 



# EQUIP, 2=*name 

#EQUIP,3=FILE 

# EQUIP, 4=FILE 

# *REMOVE , 1=2 , R=3 , 0=4 

List names of routines you want one per line (CR) (LF) 

* © s 

# REWIND, 3 
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Subroutine AXPLTF, AXPLTI 



Purpose: 

Writes a label at specified tick marks on the dependent and 
independent axes. AXPLTF writes a floating point label according 
to F4.1. AXPLTI writes an 14 integer label. 

Usage: 

CALL AXPLTF (LX,LY ,PDATA) 

This subroutine requires no common storage. 



Description of parameters: 
LX,LY 

PDATA(l) thru PDATA(I3) 
PDATA(14) 

Example: 



Physical size of plot. 

Same parameters as used in GRAPHIC p. 21 

Multiple of tick marks to label. 

If it is equal to 1 the subroutine 
writes at every tick mark. If it 
is equal to 2 it writes at every 
other tick mark. 

PDATA Dimensioned as PDATA(20) . 



Remarks: Subroutines AXPLTF and AXPLTI were written by J. A, 
Baughman in Fortran IV (CDC 3300) . 



Subroutine CENTAR 

Purpose: 

Strips off leading BCD blanks from first N characters of 
character array Cl and stores in C2 . Returns NU, the number of 
characters found from first non-blank character to last. Maximum 
size of character array is 96. 

Usage: 

CALL CENTAR (Cl,C2,N,NU) 

In one call Cl may be same variable as C2 , i.e. 
CALL CENTAR ( C , C t N , NU ) , 



Remarks: Subroutine CENTAR was written by J. A. Baughman in 
Fortran IV (CDC 3300) . 
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Subroutine ENCLOSE 

Purpose: 

Subroutine ENCLOSE constructs a boundary around a plot. 

Us age : 

A call must be made to AXISXY prior to a call to ENCLOSE. 
ENCLOSE is the main and only entry point: CALL ENCLOSE (PDATA) 
PDATA must be dimensioned (10) . 



Description of parameters: (Same as for AXISXY) 



PDATA f 1 ^ 



PDATA ( 2 ) 

PDATA (3) 

PDATA ( 4 ) 

PDATA (5) 
PDATA ( 6 ) 
PDATA (7) 

PDATA ( 8 ) 



■mil e? +■ ^/-Tii^l 






in logical units. 



must equal 
in logical 

must equal 
in logical 

must equal 
in logical 

must equal 

must equal 

must equal 
tick marks 

must equal 
tick marks 



YL - the length of the Y axis 
units . 

XLOW - initial point on X axis 
units . 

YLOW - initial point on Y axis 
units . 

XORG - X axis origin. 

YORG - Y axis origin. 

XTIC - the interval between 
on the X axis in logical units 

YTIC - the interval between 
on the Y axis in logical units 



Remarks : 

Subroutine ENCLOSE was written by J. A. Baughman in Fortran 
IV (CDC 3300). A call must be made to AXISXY or SAXES prior to 



20. 
a call to ENCLOSE. The method consists of successive calls to 
PLOTXY. When the operation is completed the message "graph 
enclosed" will be typed out. 

PDATA must be dimensioned. 



21. 
Subroutine GRAPHIC 

Purpose: 

Draws N curves on a plot and labels the dependent and 
independent axis with alphanumeric information and writes a 
graph title at a user specified location. 

Usage: 

CALL GRAPHIC (X, Y,L ,N ,LX,LY ,PDATA) . 

This call is made on the first and only call to Graphic. 

CALL DUPLOT(X,Y,L,N,LX,LY,PDATA) . . 

This call is used for additional curves to be drawn. 
Duplot is second entry point to Graphic. 

Description of parameters: 

X independent variable, 
dimensioned X(N). 

Y dependent variable, 
dimensioned Y (N) . 

L dimensioned as L(60). 

If L(l) =0 program will not draw graph title. 
If L(21) = program will not draw X axis title. 
If L(41) = program will not draw Y axis title. 
L(2), L(3) = X, Y position of graph title. 
L(4), L(20) = Graph title. 
L(24), 1.(40) = X axis title. 
L(44), L(60) = Y axis title. 
Titles contain alphanumeric information. 

N Number of data points. 

LX,LY Physical size of the plot as described in Part I, p. 4 
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PDATA 



Dimensioned as PDATA (20) contains parameters 

necessary to plot as described in Part I, p. 4. 

PDATA (1) 

PDATA ( 2 ) 

PDATA (3) 

PDATA ( 4 ) 

PDATA (5) 

PDATA (6) 

PDATA ( 7 ) 

PDATA (8) 

PDATA (9) 

PDATA (10) 



PDATA (11) 
PDATA (12) 
PDATA (13) 



XL 
= YL 
= XLOW 
= YLOW 
= XORG 
= YORG 
= XTIC 
= YTIC 
= NNT 

= IDUP 

= IMARK 
= ISIZE 
= IPEN 



This parameter must be zero on 
last or only call to Graphic. 



Remarks : 

GRAPHIC calls Subroutine CENTAR. This subroutine terminates 
plotting after five PLOTXY errors have been made and returns 
control to the calling program. The X and Y values in error are 
printed out on LUN61. GRAPHIC plots on LUN16. Subroutine 
GRAPHIC was written by J. A. Baughman in Fortran IV (CDC 3300). 
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Subroutine GRID 



Purpose: 

To plot a line grid on the plotting surface of horizontal 
lines, vertical lines or both. 

Usage: 

CALL GRID (ID, XLOW, YLOW, XHIGH,YHIGH,XMARK,YMARK,XPO INT, 
YPOINT , AFACT ,BFACT ,XORG , YORG) 

Description of parameters: 



LU 



laen-cincation iactors: 



ID(1) 
ID(2) 
ID(3) 



number of curves to be plotted, 

number of points for curve. 

key choice for multiple graphs, 
= for no key. 
= 1 for key. 
ID (4) = IPOS (from PLOTXY) for plot*. 
= pen up. 

1 pen down. 

IMARK ( from PLOTXY ) * . 

1 to 32. 

grid choice 

for no grid. 

1 for grid, 
grid lines 

= for no lines. 
= 1 for horizontal lines. 
= 2 for vertical lines. 
= 3 for both. 
ID (8) = graph type* 

= 1, XLOW ? XORG, YLOW ^ YORG + 
= 2, XLOW = XORG, YLOW = YORG L_ 
= 3, XLOW = XORG, YLOW f YORG H 
= 4, XLOW ^ XORG, YLOW = YORG J_ 



ID(5) 
ID(6) 

ID(7) 



*See description of library routines and their parameters, Part I, 
pp. 4-5. 
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XLOW 

YLOW 

XHIGH 

YHIGH 

XMARK 

YMARK 

XPOINT 

YPOINT 



BFACT 

XORG 

YORG 



Low X-axis value in logical units. 

Low Y-axis value in logical units. 

High X-axis value calculated by XL + XLOW. 

High Y-axis value calculated by YL + YLOW. 

An array of points along the X-axis at which 
vertical lines may be drawn. 

An array of points along the Y-axis at which 
horizontal lines may be drawn. 

The X-coordinate for the bottom of a key, 
equals XHIGH if no key is specified. Calculated 
by XHIGH- 30/12. *AFACT. 

The Y-coordinate for the left margin of a key, 
equals YHIGH if no key is specified. Calculated 
by YHIGH- (4+IDU))*. 15 *BFACT. 

tv ,-r^^^A^-n f^ofnr -Ft-otti lnrrinal units to inches 

for X-axis, calculated by XL/LX. 

Same for Y-axis, calculated by YL/LY. 

X-axis origin in logical units. 

Y-axis origin in logical units. 



Remarks: 

The XMARK array may be generated for linear scales by in- 
crementing XLOW by XTIC or some other value, ATIC. Similarly 
the YMARK array may be generated for linear scales by incre- 
menting YLOW by YTIC or some other value, BTIC. These arrays 
must terminate with values equal to or greater than their 
respective XHIGH and YHIGH values. For examples of use see 
MLTIPLT and L0G1 in Part III. Written by CD. Pielstick. 



Subroutines required: 
None. 
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Subroutine GRIDMARK 

Purpose : 

Subroutine GRIDMARK places gridmarks on a plot in the 
first quadrant. 

Usage: 

PDATA must be dimension (20) . A call must be made to 
AXISXY, or SAXES prior to the call to GRIDMARK. Gridmark is the 
main and only entry point: CALL GRIDMARK (TINC, FINC, PDATA). 

Description of parameters: 

TINC the increment for the X-axis (time) gridmarks. 

FINC the increment for the Y-axis (function) 
gridmarks . 

PDATA (1) must equal the length of the X-axis in logical 
units (XL) . 

PDATA (2) must equal the length of the Y-axis in logical 
units (YL) . 

PDATA (5) must equal the X-axis origin (XORG) . 

PDATA (6) must equal the Y-axis origin (YORG) . 



Remarks : 

Subroutine GRIDMARK was written by J. A. Baughman in 
Fortran IV (CDC 3300) . The method consists of successive calls 
to PLOTXY. The boundary is made first and contains gridmarks, 
then the gridmarks are made in the first quadrant. After the 
operation is completed the pen is returned to the origin. 
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Subroutines KEYl and KEY2 



Purpose: 

To plot a key in the upper right-hand corner of a graph of 
multiple plots indicating the data mark used f the X-axis scale 
factor, and the Y-axis scale factor. They are arranged in order 
of plotting. KEYl plots the headings, and KEY2 plots the data 
marks and scale factors (in F5. 2 format). 



Usage: 



CALL KEYl (AFACT ,BFACT , ARRAYl , ARRAY2 , XHIGH , YHIGH) 
C.AT.T. VF.V? (AWhrrr RPSPT TnK^ t Yumu vuri-r-.u vci? \tct\ 

-™ — — \ "■*- "W -. , — J. ii-w J. , J-i^ \ w> / f VJ f ilil J.VJTJ.J. , ±11X011 , /\Ui: , XlJl' / 



Description of parameters: 
AFACT 



BFACT 

XHIGH 

YHIGH 

ID(5) 

J 



XSF 



YSF 



A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

Same for Y-axis, calculated by YL/LY. 

High X-axis value, calculated by XL + XLOW. 

High Y-axis value, calculated by YL + YLOW. 

(See ID array from MLTIPLT p. 37) IMARK from PLOTXY 

A counter, equals 1 for first call. Subroutine 
increases J by one for each call. The value is 
used by the subroutine in determining the position 
for printing information in the key. J should 
never be changed outside the subroutine. 

Scale factor for X-axis such that XSF times one 
new logical unit = one old logical unit (= 1 for 
first plot) . 

Same for Y-axis (= 1 for first plot) . 
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ARRAY1 An array containing "KEY FOR PLOTS." 

ARRAY2 An array containing "DATA MARK (6 spaces) XSF 
(6 spaces) YSF . " 

Remarks : 

An outline of the key may be plotted using XHIGH, YHIGH, 
XPOINT, and YPOINT. For examples of use see MLTIPLT and L0G1. 
The programmer should note that the parameter "J" is set equal 
to one on the first call, but is not changed externally. It 
is, however, increased by one for each call, e.g. J = 2 after 
first call; J = 3 after second call, etc. Subroutines KEY1 and 
KEY2 were written by CD. Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 
None . 
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Subroutine LABELS 

Purpose: 

To label the X and Y axes and the plot as a whole with not 
more than 80 alphanumeric characters and/or symbols. 

Usage: 

CALL LABELS (XLOW, YLOW,XHIGH, YHIGH,AFACT,BF ACT, IA, IDENT) . 

Description of parameters: 

See descriptions of OUTLINE, p, 41. for all except the 
following: 

IA An array in 60A4 format (must be dimensioned to 
60) with 1-20 containing 80 character positions 
for the Y-axis label, 21-40 containing 80 character 
positions for the X-axis label, and 41-60 con- 
taining 80 character positions for the plot label. 

IDENT An array (must be dimensioned to 3) containing 
the number of characters, including blanks, of 
the above 3 labels and in that order. 

Remarks : 

The "plot" label has character size (ISIZE) =3. Therefore, 

the length of the label should be considered carefully. For 

examples of use see MLTIPLT and LOG1. Written by CD. Pielstick. 



Subroutines required: 
None . 
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Subroutine LABELX 

Purpose: 

To label the X-axis of any linear graph in F5.1 format 
according to specifications of the parameter list. 

Usage: 

CALL LABELX ( XVALUE , XINCRMT , XSTART , XHIGH , ATIC , AFACT , BFACT , 

ID(8) , YORG) . 

Description of parameters : 

See abstract or FLui±rij£ t p. j»-j.ui cu-a. cv^c.*/*. . *»"«- *~- _,- 

XHIGH The high X-axis value, calculated by XL + XLOW. 

AFACT A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

BFACT Same for Y-axis, calculated by YL/LY. 

Remarks: 

Care should be taken to space labels appropriately with 
ATIC. Since a maximum value of 999.9 can be plotted, the program- 
mer may label axis with appropriate fractions such as 1.0 or 10.0 
for 100.0. The change may be noted by labeling the axis appro- 
priately, i.e v X-axis - Units = 10* label value. (See LABELS). 
For examples of use, see MLTIPLT and LOGl. Written by CD. Pielstick 

Subroutines required: 
None. 
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Subroutine LABELY 

Purpose: 

To label the Y-axis of any linear graph in F5.1 format 
according to specifications of the parameter list. 

Usage: 

CALL LABELY ( YVALUE , YINCRMT , YSTART , YHIGH , BTI'C , AFACT , BF ACT , 

ID(8),XORG) 

Description of parameters : 

r«~~ -,-U.-. x-^.~.^x- ^.P MTmTDTfP v> "3*7 £r\-r~ all oYnonf -t-h<a "Frill nwino 

OCC CUJOtia^/U KJl. 1UJJA J-.T J4X , y» -» # j-wa. «. j- — v-o^wj^w > zi 

YHIGH The high Y-axis value, calculated by YL + YLOW. 

AFACT A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

BFACT Same for Y-axis, calculated by YL/LY. 

Remarks : 

See LABELX. Labels are spaced with BTIC. For examples of 
use see MLTIPLT, page 37. Subroutine LABELY was written by CD. 
Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 
None, 
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Subroutine L0G1 

Purpose: 

To plot one or more sets of data on one set of X-Y axes 
(Y values >0) with a common log scale Y-axis. The plot is 
labeled, outlined and includes GRID and KEY options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage: 

CALL LOGI (XDATA, YDATA) 

This is the first call; defines and plots one graph. 

XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGA ( XDATA , YD ATA ) 

This is the entry for each additional graph. 

COMMON ... 

(See subroutine MLTIPLT for parameters and description, p. 37 
They are identical.) 

Remarks: 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot. 
This allows the programmer to do extra labeling, for example, 
before the plot is terminated. Since YLOW = YORG for this 
log scale, ID (8) must = 2 or 4 , usually 2. 
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The AXISXY parameter list is printed on the line printer. 
Incorrect data values are also printed. X-axis labels are 
limited to 999.9 maximum. Subroutine L0G1 was written by 
CD. Pielstick in Fortran IV (CDC 3300). 

Subroutines required: 

LABELX, LABELS, OUTLINE, GRID, KEYl, KEY2. 
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Subroutine L0G2 

Purpose : 

To plot one or more sets of data on one set of X-Y axes 
(Y values >0) with a common log scale X-axis. The plot is 
labeled, outlined and includes grid and key options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage: 

CALL LOG 2 ( XD ATA , YD ATA ) 

This is the first call; defines and plots one graph. 

XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGB ( XDATA , YDATA ) 

This is the entry for each additional graph. 

COMMON ... 

(See subroutine MLTIPLT, p. 37 for parameters and 
description. They are identical.) 

Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot. 
This allows the programmer to do extra labeling, for example, 
before the plot is terminated. Since XLOW = XORG for this 
log scale, ID (8) must = 2 or 3 , usually 2. 
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The AXISXY parameter list is printed on the line printer. 
Incorrect data values are also printed. Y-axis labels are 
limited to 999.9 maximum. Subroutine L0G2 was written by 
CD. Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 

LABELY, LABELS, OUTLINE, GRID, KEYl, KEY2. 
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Subroutine L0G3 

Purpose: 

To plot one or more sets of data on one set of X-Y axes 
(X and Y values >0) with common log scale axes. The plot is 
labeled, outlined and includes grid and key options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage: 

CALL L0G3 (XDATA, YDATA) 

This is the first call; defines and plots one graph. 

XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGC (XDATA, YDATA) 

This is the entry for each additional graph. 

COMMON ID ( 8 ) , NNT , LUN , LX , LY , XMIN , YMIN , XMAX , YMAX , XSF , YSF , 
IA(60) ,IDENT(3) 

(See subroutine MLTIPLT, p. 37 for parameters and 
description. They are identical. Note that this 
COMMON^ consists of the first 12 and last 6 para- 
meters in the MLTIPLT list.) 

Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot. 
This allows the programmer to do extra labeling, for example, 
before the plot is terminated. Since XLOW = XORG and YLOW = YORG 
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for this subroutine ID (8) must = 2. The AXISXY parameter 
list is printed on the line printer as are incorrect data 
values. Subroutine L0G3 was written by CD. Pielstick in 
Fortran IV (CDC 3300) . 

Subroutines required: 

LABELS, OUTLINE, GRID, KEYl, KEY2 . 
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Subroutine MLTIPLT 

Purpose: 

To plot one or more sets of data on one set of X-Y axes 
with different scaling and with labeling and outline. Includes 
GRID and KEY options. The first plot defines the axes and the 
units; others are scaled accordingly. 

Usage: 

CALL MLTIPLT (XDATA, YDATA) 

This is the first call; defines and plots one graph. 

XDATA = an array of independent variable coordinates 
YDATA = an array of dependent variable coordinates 

CALL GRAPH ( XDATA , YDATA ) 

This call is the entry for each additional graph. 

VARIABLES IN COMMON: 

COMMON ID ( 8 ) , NNT , LUN , LX , LY , XL , YL , XLOW , YLOW , XORG , YORG , 
XTIC , YTIC , XVALUE , YVALUE , XINCRMT , YINCRMT , XSTART , YSTART , 
AT.IC , BT IC , XMIN , YMIN , XMAX , YMAX , XSF , YSF , IA ( 6 ) , IDENT ( 3 ) 

or 

COMMON IARRAY ( 1 2 ) , ARRAY ( 2 2 ) , LABELS ( 6 3 ) 

where the three arrays correspond to 1) integer para- 
meters, 2) floating point parameters, and 3) the 
three labels and their corresponding lengths. 

Description of parameters: 

ID Identification factors: 

ID(1) = number of curves to be plotted. 
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NNT thru 
YTIC* 

XVALUE 

YVALUE 

XINCRMT 

YINCRMT 

XSTART 



ID (2) = number of points for curve. 

ID (3) = key choice for multiple graphs. 

= for no key. 

= 1 for key. 
ID (4) = IPOS (from PLOTXY) for plot.* 

= 2 for vertical lines. 

= 3 for both. 
ID (5) = IMARK(from PLOTXY)*. 

= 1 to 32. 
ID (6) = grid choice 

= for no grid, 

= 1 for grid. 
ID (7) = grid lines 

= for no lines. 

= 1 for horizontal lines. 

= 2 for vertical lines. 

= 3 for both. 
ID (8) = graph type.* 

= 1, XLOW f XORG, YLOW f YORG + 

= 2 , XLOW = XORG , YLOW = YORG L 

= 3, XLOW = XORG, YLOW f YORG , 

= 4, XLOW f XORG, YLOW = YORG jj 



Define axes and units. 

Starting value for labeling X-axis. 

Starting value for labeling Y-axis. 

Value to increment XVALUE between labels. 

Value to increment YVALUE between labels. 

Starting position for labeling X-axis in logical 
units. 



YSTART Starting position for labeling Y-axis in logical 
units. 

ATIC Logical units between first characters of two 

sequential labels on the X-axis, usually equals 
XTIC or XTIC * NNT (although this routine does 
not plot NNT) . 



*See description of library routines and their parameters, see 
Part I. 
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BTIC Same for Y-axis. 

XMIN Minimum scaled X-value to be plotted. 

YMIN Minimum scaled Y-value to be plotted. 

XMAX Maximum scaled X-value to be plotted. 

YMAX Maximum scaled Y-value to be plotted. 

XSF Scale factor for X-axis such that XSF times one 
new logical unit equals one old logical unit 
(= 1 for first plot) . 

YSF Same for Y-axis (= 1 for first plot) . 

IA(60) An array in 60A4 format with the Y-axis label 

in 1-20, the X-axis label in 21-40, and the plot 
label in 41-60. Thus each label has a maximum 
of 80 characters and/or symbols. 

IDENT(3) An array of the number of characters of the above 
three labels, including blanks, which must be 
in that same order. 



Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot 
unless AX I SXY is in error. This allows the programmer to do 
extra labeling, for example, before the plot is terminated. The 
AXISXY parameter list is printed on the line printer, Incorrect 
data values are also printed. 

Usually XVALUE will equal XSTART and XINCRMT will equal 

ATIC as will also be the case for the corresponding Y-values - 

YVALUE and YSTART, YINCRMT and BTIC . Differences occur when 

the label values are scaled rather than actual values. Labels 

are limited to 999.9 maximum. Subroutine MLTIPLT was written 

by CD. Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 

LABELX, LABELY, LABELS, OUTLINE, GRID, KEY1 , KEY2 . 

The subroutines are on public file. See pages 14, 15. 



40. 
Subroutine NAME 

Purpose : 

Subroutine NAME is a routine that sets up an axis (call 
to SAXES) for the specific purpose of labeling. 

Usage: 

NAME is the main and only entry point: CALL NAME (lun, 
list, n) . List must be dimensioned. NAME was written for a CDC 
3300, the language is Fortran IV. 

Description of parameters: 

LUN logical unit number that the plot is equipped to. 

LIST the label that will be placed on the plot. 

N integer number of characters to be plotted (n * 80) 

Remarks: 

Subroutine NAME was written by J. A. Baughman, (8-13-6 8), 
The method consists of subsequent calls to SAXES, PLOTXY , and 
LABEL. The subroutine may not be used within an AXISXY Plot. 
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Subroutine OUTLINE 

Purpose: 

To outline the boundaries of a plot. 



Usage: 



:ALL OUTLINE ( ID ( 8 ) , XLOW , YLOW , XHIGH , YHIGH ) 



Description of parameters: 



ID 



YLOW 

XHIGH 

YHIGH 



ID (8) '■= graph type.* 

= 1, XLOW t* XORG, YLOW f YORG -f- 

= 2, XLOW = XORG, YLOW = YORG [_ 

=3, XLOW = XORG, YLOW f YORG |- 

= 4, XLOW f XORG, YLOW = YORG J_ 

T ^t.t V_^»vie? Tral lies -i y» 1 rtrrrrial ' mil f'C 

Low Y-axis value in logical units. 

The high X-axis value, calculated by XL + XLOW, 

The high Y-axis value, calculated by YL + YLOW, 



Remarks: 

OUTLINE uses only ID (8). It contains no common or dimensioned 
variables. For example of use see MLTIPLT and LOGi. 

Subroutines required: 
None. 



*See description of library routines and their parameters* Part I, 
pp. 4-5. 
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Subroutine SCALEPLT 



Purpose: 

Calculates the range of the dependent or independent variables 
and evaluates the parameters needed for scaling the plot drawn 
by GRAPHIC or needed for a call to AXISXY. 

Usage: 

CALL SCALEPLT (Y,N ,LX,LY , PDATA) . 

Description of parameters: 

X Data values for X-coordinate variable dimensioning. 

Y Data values for Y-coordinate variable dimensioning 
specified by calling program. 

N Number of data values to be plotted. 

LX,LY Physical size of plot. 

PDATA As described for subroutine GRAPHIC returns values 
for PDATA(l) — PDATA(8) . 
PDATA Dimensioned by 20. 



Remarks :. 

User must supply values for PDATA (9) --PDATA (13) before 
calling GRAPHIC. Subroutine SCALEPLT was written by J. A. 
Baughman in Fortran IV (CDC 3300) . 
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PART III 



SAMPLE CALLING PROGRAMS WITH THE CURVES THEY CREATED 



'EQUIP, 2= -GRAPHIC 
T EQUIP, : 3 = *PLTSUBS 
'EQUIP, 16=PL0T 
1 FORTRAN, L,X 

PROGRAM TESTPLOT 
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100 
101 

200 
1 



10 



20 



******************** 
TEST PROGRAM FOR GRAPHIC 
GRAPHIC CALLS SUBROUTINE 



AND AXPLTI 
CENTAR 



PDATA(l) 
PDATAC2) 
PDATAC3) 
PDATAC4) 
PDATAC5) 
PDATAC6) 



AL 

YL 

XLOW 

YLOW 

XORG 

YORG 



PDATAC7) = 
PDATA(S) = 
PDATAC9) = 
PDATA(10)= 
PDATA(11)= 
PDATA(12)= 
PDATA(13)= 
PDATA(14)= 



XTIC 

YTIC 

NNT 

IDUP 

IMARK 

ISIZE 

IPEN 

AMULT 



******************** 



DIMENSION XU000), YC1000) 

DIMENSION LEGENDC60), PDATAC20) 

FORMAT (10E5.1) 

F0RMAT(I2,2I3,17A4,4X) r-.„^ 

FORMATC1H-,5X5HIMARK,5X5HISIZE,6X4HIPEN,5X5HAMULT,/4F10.2) 

FORMAT (1H1 t gX2HXL,8X2HYL,6X4HXL0W,6X4HYL0W,6X4KX0RG,6X4HY0RG,6X4HX 

- ?} 



TTP iTVAUVTTP £Y/iU 



mmt . /tana 

— y . — . _ 



READ IN PLOT INPUT DATA 
READ(60,100) (PDATACI),I=1,10) 
PDATA(ll) = 12. 
PDATAC12) = 2. 
PDATAC13) = 1. 
PDATAU4) = 2. 
LX = 7 
LY = 10 

WRITE OUT PLOT INPUT DATA 
WRITE(61,1) (PDATA(I), I = 1,10) 
WRITE(61,200) (PDATACI),I=11,14) 

READ IN GRAPH TITLE 

AND LABELS FOR X AND Y AXIS 
READ(60,101) (LE3END(I),I=1 ,60) 

N= 100 

DO 10 I = 1,N 

X(I) = I 

X(I) = X(I)*.5 

Y(I) = X(I)*X<I) - X(I)/5. 

CONTINUE 

PLOT FIRST CURVE 
CALL GRAPHIC(X,Y, LEGEND, N,LX,LY,PDATA) 
CALL AXPLTI(LX,LY,PDATA) 
DO 20 I = 1,N 
XCI) = I 
X(I) = X(I)*.2 

Yd) = (X(I)*X(I) - X(I)/5.)/2. 
CONTINUE 

SET NEW DATA MARK 
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PDATA(ll) =15. 
C PLOT SECOND CURVE 

CALL DUPLOT (X,Y, LEGEND, N f 8 ,1 1 ,PDATA) 

PDATA(10> = 0. 

DO 30 I = 1,N 

A = X(I) 

Y(I) = X(I)*(SIN(A))*SIN(A). 
30 CONTINUE 

PDATA(ll) = 2. 
C PLOT THIRD CURVE 

CALL DUPLOT (X,Y, LEGEND, N ,8 ,1 1 ,PDATA) 

CALL AXISXY(0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

END FINIS 
'LOAD, 56 ,2,3 

RUN 
25. 50. -2. -4. 0. 0. 1. 5. 1. 1. 
2 10 40 TEST PLOT FOR GRAPHIC-I 
1 X AXIS WITH INTEGER LABEL 

1 Y AXIS. WITH INTEGER LABEL 

'LOGOFF 
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TE5T.PLBT ■ FBR GRAPH! 



j t r _ f 




V PXJS HHH JNTt'Gt'R LftSt'L 
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C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



PROGRAM TESTPLOT 

******************************************* 

TEST PROGRAM FOR GRAPHIC AND AXPLTF 
DREW TEST PLOT FOR GRAPH-B 



PDATA(l) = XL 



PDATAC7) - XTIC 



PDATAC2) 


- 


YL 


PDATAC3) 


r 


XLOW 


PDATAC4) 


- 


YLOW 


PDATAC5) 


z 


XORG 


PDATA(S) 


- 


YORG 



PDATAC8) = 
PDATAC9) = 
PDATAC10)= 
PDATA(11)= 
PDATA(12)= 
PDATAC13>= 



YTIC 

NNT 

IDUP 

IMARK 

ISIZE. 

IPEW 



PDATA(14)=AMULT 
******************************************* 

DIMENSION XC1000), YC1000) 

DIMENSION LEGENDC60), PDATAC20) 
C COMMON PLOT INPUT DATA 

COMMON/DATA/PDATA 

DATA ((PDATA(I)jI-lfi4y~25«j»'0«f"'2e}""-t»9W9f^»y 
ll.,l.,l.,l.,10.,3.,l.,2.) 
C WRITE OUT PLOT INPUT DATA 

WRITE(61,1) (PDATA(I), I =1,10) 

WRITE(61,200> (PDATACI),I=U,14) 
200 FORMAT (1H-,5X5HIMARK,5X5HISIZE,6X4HIPEN,5X5HAMULT,/4F10. 2) 
1 F0RMAT(1H1,8X2HXL,8X2HYL,6X4HXL0W,6X4HYL0W,6X4HX0RG,6X4HY0RG,6X4HX 

1TIC,6X4HYTIC,SX4H NNT ,/10F10 .2) 
C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READ(60,101) (LEGEND(I),I=1,S0) 
101 F0RMAT(I2,2I3,17A4,4X) 
LX ■= 7 
LY = 11 
N = 50 

DO 10 I = 1 ,N 
X(I) =1 
X(I) = X(I>*.5 
Y(I) = X(I)*XCI) - XCD/5. 
10 CONTINUE 

C PLOT FIRST CURVE nnATAN 

CALL GRAPHICCX,Y, LEGEND, N,LX,LY,PDATA) 

AXPLTF(LX,LY,PDATA) 



CALL 

XLOW 
YLOW 



= PDATAC3) 
= PDATAC4) 
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XHIGH = PDATA(l) + XLOW 

YHI'GH = PDATAC2) + YLOW 
C 

CALL OUTLINEC1 , XLOW, YLOW, XHIGH, YHIGH) 
C 
C SET NEW DATA MARK 

PDATA(il) = 12. 

DO 20 I = l f N 

X(I) =1 

X(I) = X(I)*.2 

Yd) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C PLOT SECOND CURVE 

CALL DUPLOT <X,Y, LEGEND, N,LX,LY, PDA TA) 

PDATAU0) =. 0. 

DO 30 I = 1,N 

A = XCI) 

X(I) = X(I)*(SIN(A))*SINCA) 
30 CONTINUE 

P OCT ME* lif HAT A MAPI/ 

V jijI ivi_»»y unin iinnii 

PDATA(ll) = 2. 
C PLOT THIRD CURVE 

CALL DUPLOT (X,Y, LEGEND, N,LX,LY, PDA TA) 

CALL AXISXY(0,LX,LY,XTIC, XL, XLOW, YLOW, X0RG,Y0RG) 

END 
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r.KO- 




b LQf FQR GRAPHIC B 



H 1 1_ 1 1 1 1 k— H 1 1 — H 1 -< 1- 1 H — I h— I » 

2.D 4.0 6.0 fl.O 10.0 J2.Q J4.0 16. JB.Q 20.0 22.0 



X QXfS 



I fNFQF. 
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PROGRAM TESTPLOT 
DIMENSION XC1000), YC1000) 
DIMENSION LEGENDC60), PDATAC20) 
DIMENSION LISTC2) 
C 

C THIS PROGRAM PLOTS GRAPHIC-C 

C 

C PDATAC1))=XL PDATA(7)=XTIC 

C PDATAC2)=YL PDATAC8) =YTIC 

C PDATAC3)=XL0W PDATAC9)=NNT 

C PDATA(4)=YL0W PDATA C 10) =IDUP 

C PDATAC5)=X0RG PDATAC 1 1 ) =IMARK 

C PDATAC6)=Y0RG PDATAC 12) =ISIZE 

C PDATAC13)=IPEN 

C PDATAC14)=AMULT 

PDATAC 10) = !• 

PDATAC 11) = 15. 

PDATAC12) = 3, 



pnATA^•^^ - i 

i wnin \ * v/ — * 



PDATAC14)=2. 
C WRITE OUT PLOT INPUT DATA 

WRITEC61,200) CPDATACI) ,1=1 1,14) 
200 FORMAT <lH-,5X5HIMARK f 5X5HISIZE f 6X4HIPEN f 5X5HAMULT,/4F10v<J) 

C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READC60,101) CLEGENDCI),I=1,60) 
101 F0RMATCI2,2I3,17A4,4X) 

LX = 7 

LY = 10 

LUN = 16 

NL=8 

LISTC1)=4HJ0 A 

LISTC2)=4HNN 

CALL NAMECLUN,LIST,NL) 

N=40 

DO 10 I - 1 ,N 

XCI) = I 

XCI) = XCI)*. 5 

YCI) = CXCI)*XC1) - XCI))/5. 
10 CONTINUE 
C SCALE FOR PLOTTING 

CALL SCALEPLTCX,Y,N ,LX ,LY, PDATA) 

C 

C PLOT FIRST CURVE 

CALL GRAPHICCX,Y,LEGEND,N,LX,LY, PDATA) 

CALL AXPLTFCLX,LY, PDATA) 

C 

CALL ENCLOSECPDATA) 
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N = 50 

DO 20 I = lfN 

XCI) = I 

XtlJ = Xvi;*.£ 

Yd) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C SET NEW DATA MARK 

PDATA(ll) =■ 12. 
C PLOT SECOND CURVE 

CALL DUPLOT (X,Y, LEGEND, N,8, 1 1 ,PDATA) 

DO 30 I = 1 ,N 

A = XCI) 

X(I) = X(I)*(SIN(A))*SIN(A) 

30 CONTINUE 

PDATAU0) = 0. ,w.,x ■ « 

C SET NEW DATA MARK PDATAC H ) =10 • 

PDATA(11>=10. 
C PLOT THIRD CURVE 

CALL DUPLOT CX,Y, LEGEND, N, 8, 1 1 ,PDATA) 
3 WRITE(61,2) 

C 2 FORMAT ClH- f i9HEND OF GRAPHIC P LOT) ^ ^_ _ . 
CALL AXISXY(0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YQRG) 

END 

FINIS 
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X aXJ 5 SCALED AUTSMftTJCALLY BY SUBROUTINE 5CALEPLT 
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' EQUIP , 2=*GRAPHIC 
' EQUIP, 3=*PLTSUBS 
' EQUIP, 16=PL0T 
' FORTRAN ,L,X 

PROGRAM TESTPLOT 

DIMENSION XC1000), YC1000) 

DIMENSION LEGENDCS0), PDATAC20) 

DIMENSION LIST (2) 
C 

C THIS PROGRAM PLOTS GRAPHIC-II 

C 

C PDATA(1))=XL PDATA(7)=XTIC 

C PDATA(2)=YL PDATA (8)=YTIC 

C PDATA(3)=XL0W PDATA(9)=NNT 

C PDATA(4)=YL0W PDATA ( 10)=IDUP 

C PDATA(5)=XORG PDATA ( 1 1 )=IMARK 

C PDATA(S)rYORG PDATA ( 12)=ISIZE 

C PDATA(13)=IPEN 

C PDATA(14)=AMULT 

C READ IN INPUT DATA FOR PLOT 

READ(S0,100) (PDATA(I),I=1,10) 

PDATA(ii) = 15. 

PDATACJ2) z 3. 

PDATAU3) = 1. 

PDATA(14)=2. 
C WRITE OUT PLOT INPUT DATA 

WRITE(61,1) (PDATACI), I = 1,10) 

WRITE(Si,200) CPDATA(I),I-il ,14) 

100 FORMATU0E5.1) 

200 FORMAT (1H-,5X5HIMARK,5X5HI SIZE, 6X4HIPEN,5X5HAMULT,/4F1 0.2) 
1 FORMAT <1H1,8X2HXL,8X2HYL,6X4HXL0W,6X4HYL0W,6X4HX0RG,SX4HY0RG,6X4HX 
1TIC,6X4HYTIC,6X4H NNT ,/10F10 .2) 
C READ IN GRAPH TITLE 
C AND LABELS FOR X AND Y AXIS 
READ(S0,101) (LEGEND(I),I=1,60) 

101 F0RMAT(I2,2I3,17A4,4X) 
LX = 7 

LY = 10 
LUN = 16 
NL=8 

LIST(1)=4HJ0 A 
LIST(2)=4HNN 
CALL NAME(LUN,LIST,NL) 
N = 50 

DO 10 I = 1,N 
X(I) = I 
XCI) = X(I)*.5 

Y(I) = (X(I)*X(I) - X(I))/5. 
10 CONTINUE 
C PLOT FIRST CURVE 

CALL GRAPHIC(X f Y f LEGEND,N,LX,LY, PDATA) 
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CALL AXPLTF(LX,LY,PDATA) 
CALL ENCLOSE(PDATA) 



DO 20 I = 1,N 

X(I) = I 

X(I) = X(I)*.2 

Y(I) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C SET NEW DATA MARK 

PDATA(ll) = 12. 
C PLOT SECOND CURVE 

PDATAC10) = 0. 

CALL DUPLOT (X,Y, LEGEND, N, 8,11, PDATA) 
3 WRITE(61,2) 

C 

2 F0RMATC1H-,19HEND OF GRAPHIC PLOT) 

CALL AXISXY(0,LX,LY ? XTIC,XL f XLOW,YLOW,XORG 5 YORG) 

END 

FINIS 
'LOAD, 56, 2, 3 
MAP 
RUN 
20. 60. -2. -4. 0. 0. 1. 1. 1. 1. 
2 1 40 TEST PLOT FOR GRAPHIC-II 
12 2 X AXIS 
12 2 Y AXIS 

'LOGOFF 
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X AXIS 



• EQUIP»2=*GRAPHIC 57 

« EQUIP»3=*PLTSUBS 

»EQUIP»16=PL0T 

»MFBLKS=400 

»TIME=200 

'FORTRAM»L»X 

PROGRAM TESTPLOT 
C THIS PROGRAM PLOTS GRAPHIC-D 

DIMENSION X(1000)> Y(IOOO) 

DIMENSION LEGEND(60)» PDATA(20) 

DIMENSION LIST ( 2 ) 

C 

£ •* %■ # * # # -* * * -x- * * * * * * * * * #*-###•-*-*■*# 

r 

r PDATA(1))=XL PDATA ( 7 ) =XT I C 

C PDATA(2)=YL PDATA ( 8 ) = YT I C 

C PDATA(3)=XLOW PDATA (9 ) =.NNT 

c PDATA(4)=YL0W PDATA ( 10 )= 1 DUP 

C PDATA(5)=X0RG PDATA ( 1 1 )= IMARK 

C PDATA(6)=Y0RG PDATA ( 12 ) = I S I ZE 

c PDATA(13)=IPEN 

C PDATA( 14) =AMULT 

PDATA(IO) = 1. 
PDATA(115-15« 

PDATAQ2) = 3. 

PDATA (13) = 1. 

PDATA (14) =2* 
C WRITE OUT PLOT INPUT DATA 

■ WRITE(61»200) (PDATA( I ) ,1=11 >14) 
20 FORMAT ( 1H- » 5X5H I MARK , 5X5H I S I ZE > 6X4H I P EN , 5X5HAMULT » /4F10 . 2 ). 
C READ IN GRAPH TITLE 
C AND LABELS FOR X AND Y AXIS 

READ(60»101) (LEGENOt I ) »I=1*60) 
101 FORMAT ( I2»2I3»17A4,4X) 

LX = 7 

LY = 10 

LUN = 16 

NL=8 

LlSTtl )=4HJ0 A 

LIST(2)=4HNN 

CALL NAME(LUN,LIST ,NL) 

N = 40 

DO 10 I = hN 

X < I ) = I . 

X(I)=X(I)*.5 

Y( I ) = (X( I )*X( I ) ~ X( I ) ) /5. 
10 CONTINUE 
C SCALE FOR PLOTTING 

CALL SCALEPLT(X,Y,N , LX , LY , PDATA ) 

C 

C PLOT FIRST CURVE 

CALL .GRAPHIC (X»Y , LEGEND, N,LX,LY» PDATA) 

CALL AXPLTF(LX*LY» PDATA) 



CALL GRIDMARK(4. »4. , PDATA) 

N= 60 

DO 2 I = 1 ♦ N 



X( I ) = I 
X ( I ) = X ( I ) * . 2 

Y( I ) = (X( I >*X ( I ) - X( I )/5. )/2. 
?_0 CONTINUE 

SET NEW DATA MARK 
PDATA(ll) = 12. 

PLOT SECOND CURVE 
CALL DUPLOT ( X , Y , LEGEND 9 N 9 8 » i 1 »PDATA 5 
DO 30 I = 1*N 
A = X( I ) 

XII) = X( I )*<SIN(A) )*SIN( A) 
30 CONTINUE 

PDATA(IO) = 0. 

SET NEW DATA MARK PDATA ( 1 1 ) = 10 • 
PDATAU1) = 10. 

PLOT THIRD CURVE 
CALL DUPLOT ( X , Y , LEGEND , N , 8 » 1 1 * PDATA ) 
3 WRITE(61»2) 
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2 FORMAT! 1H-,19HEND OF GRAPHIC PLOT) 

CALL AXISXY(0»LX,LY,XTIC>XL»XLOW,YLOW»XORG,YOKG) 

END 

FINIS 
♦LOAD>56>2»3 

MAP 

RUN 
2 1 40 TEST PLOT hOR GRAPHIC-D 
■i ^ i . 

1 c c 

111 

1 I 

« LOGOFF 



SCALED AUTOMATICALLY BY SUBROUTINE SCALtPLT 
Y AXIS AUTOMATICALLY SCALED 
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66.0 - 



60.0 — 




I Q- 2.0 4.0 6.0 B.O JQ.O J2.Q J4.0 J6.0 J8,0 20.0 



J X AXIS 5CALF.Q AUTOMATICALLY BY SUBROUTINE r X:ALtPLT 
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»EQUIP»l=PLOT 

•LABEL* <D/ SAVE FOR DEAN 

»EQUIP*2=*PLTRTNS 

«EQUIP»3=DATA 

*EQUIP»4-*MLTIPLT 

»EQUIP»5=*LOGl 

»FORTRAN#L*X 

PROGRAM TEST ,^^ AlC - roAowc 

C PLOTS 2 LINEAR GRAPHS AND 2 . 1-CYCLE SEMI-L06SCALE GRAPHS 

COMMON IARRAY(12)*ARRAY(22) .LABELS (63) 
DIMENSION XDATA(lOl) ,YDATA(101) 

K = 
5 READ(3»lMXDATA(I)*YDATA(I)»I = l*101) 

1 FORMAT(2F5.2) 
c EQUIP*3* YOUR FILE PRIOR TO EXECUTION 

DO XOO I =1 ♦ 12 
100 IARRAY(I)=FFIN(60) 

DO 200 1=1*22 
200 ARRAY( I)=FFIN(60) 

READ 3*<LABELSU)*I = 1»60) 

3 FORMAT (20A4) 
DO 300 1=61*63 

300 LABELS(I)=FFIN(60) 
IFtK.EQ.DGO TO 4 
CALL L0G1(XDATA*YDATA) 
CALL UNEQUIPC3) 
CALL EQUIP(3»5HDATA2) 

READ (3*1) (XDATA( I)tYDATA(I) » 1=1*101) 
IARRAY(5)=21 
ARRAY(22>=«01 
CALL LOGA(XDATAtYDATA) 
C ENTRY POINT FOR SECOND GRAPH 

CALL AXISXY(0*0»0*0»0»0»0»0»0»0»0»0) 

CALL UNEQUIP(3) 

CALL EQUIP(3»5HDATA3) 

K»l 

GO TO 5 

4 CALL MLTIPLT(XDATA»YDATA) 

CALL UNEQUIP<3) 

CALL EQUIP<3»5HDATA4) 

READ ( 3*1 )(XDATA( I) »YDATA( I) » 1=1*101) 

IARRAY(5)=23 

ARRAY(22)=.01 

CALL GRAPH(XDATA*YDATA> 
C ENTRY POINT FOR SECOND GRAPH 

IF { AX I SXY( 0*0*0* 0*0*0* 0*0*0*0*0*0) )2*2 
2 CALL EXIT 

END 
» « 
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• LOAD* 56 » 
RUN 

2 101 1 1 
100 100 
Y-AXIS 
X-AXIS - 
PLOT 1 - 
6 41 29 
2 101 1 1 
100 30000 
200 40000 
Y-AXIS - 
X-AXIS - 
PLOT 1 - 
43 41 29 



2»4»5 

o\oO 50 100 10 100 10 100 10000 200 40000 1 1 

UNITS ARE 10 TIMES LISTED VALUES 
Y=X**2> PLOT 2 - Y=X 

lOO^OOOO !^ 5000 5 1000 10 10 1 3 100 10000 10 3000 100 10000 

11 
UNITS ARE 1000 TIMES LISTED VALUES 
UNITS ARE 10 TIMES LISTED VALUES 
Y=X**2» PLOT 2 - Y=X 



•LOGOFF 
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PLQT 1 - Y=X**2, PLBT 2 - Y=X 
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X-AXJS - UNITS ARE JO TJHE5 LISTED UALUES 

PLQT i - Y=X**2, PLQT 2 - Y = X 
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•EQUIP»1-PL0T 

•LABELt(l)/, SAVE FOR DEAN 

»EQUIP»2=*PLTRTNS 

♦EQUIP»3 S DATA 

•EQUIP»4=*L061 

•FORTRAN»L»X 

PROGRAM TEST1 ^„ Anu 

C PLOTS A 4-CYCLE SEMI-LOGSCALE GRAPH 

COMMON IARRAY(12)»ARRAY(22)»LABELS(63) 

DIMENSION XDATA(lOO) tYDAT-.A( 100) 
. .■ REAO(3*1.)(XOATA(I).*YDATA(.I)»I*1»100) 

1 FORMAK2F5.2) ' ' k 
c EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 1=1 #12 
100 IARRAY(I)=FFIN(60) 

DO 200 I=l>22 
200 ARRAY(I)=FFIN(60) 

READ 3»(LABELS( I ) *I S 1»60) 
3 FORMAT C20A4) 

DO 300 I =6 1*63 
300 LABELS ( I i = FF INC 60) 

CALL L0G1(XDATA»YDATA) 

IF''iAX:i-SXY(0>0#0'»0»OfO».Q»0»0»0.tOtQ) )2#2. 

2 CALL EXIT 
END 

ti.' 

»LOAD»56>2»4 

RUN 

1 100 1 19 1 3 2 1 .7 10 

100 10 10 10 1 1 100 10000 1 1 

Y-AXIS 

VAYTC 

THIS IS. THE PLOT OF Y=X**2 

6 6 26 
t i 

'LOGOFF 




10. 



20.0 



30.0 



40.0 SO.O 60.0 
X-AXIS 



70.0 



80.0 



?0.0 



THIS IS THE PLST OF Y=X**2 
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•EQUIPtl=PLOT 

•LABEL»'U>/ SAVE FOR DEAN 

•EQUIP»2=*PLTRTNS 

•EQUIP#3=DATA 

«EQUIPf4=*L0G2 

• FORTRAN tL»X 

PROGRAM TEST 2 
C PLOTS 2 1-CYCLE SEMI-LOGSCALE GRAPHS 

COMMON IARRAY(12)*ARRAY(22) »LABELS(63J 

DIMENSION XDATA(lOl) .YDATA(lOl) 

READ(3»1J (XDATA( I ) »YDATA( I) »I=1»101 ) 

1 FORMAT<2F5.2) 

C EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l«12 
100 IARRAYC I )=FFIN(60) 

DO 200 1=1 »22 
200 ARRAY(I)=FFIN(60) 

READ -3»(LABELS(I )tl = l»60) 
3 FORMAT<20A4) 

DO 300 I =61 #63 
300 LABELS(I)=FFIN(60) 

CALL LOG2(XDATA»YDATA) 

DO 400 1=1.101 
400 XDATAU)=YDATAU ) 

IARRAY(5)*21 
ARRAY (22) =«01 
CALL LOGB(XDATA*YDATAV 
C ENTRY POINT FOR SECOND GRAPH 

IF(AXlSXY(.0»0»0»0»0*0».0»0.tO»0»0»0))2f2 

2 CALL EXIT 

END 
1. 1 

♦LOAD.56»2»4 
RUN 

2 101 1 1 11 13 2 17 10 

100 100 100 5 10 1 100 10 10000 100 40000 200 1 1 

Y-AXIS , - UNITS = 10*LABELS 

X-AXIS 

PLOT 1 - X=Y**2» PLOT 2 - X = Y 

26 6 29 

» » 

•LOGOFF 
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KEY FBfs PLBTS 
CATft HARK 



X5F YSF 

• . on i . no 

01 j . on 



0" 

PLBT 1 




X-fiXJS 



X=Y**2, PLBT 2 - X = Y 
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«EQUIP#1=PL0T 

•LABELED/ SAVE FOR DEAN 

«EQUIP»2=*PLTRTNS 

«EQUIP»3=DATA 

•EQUIP»4=*L0G3 

♦FORTRANtL»X 

PROGRAM TEST3 

C PLOTS 2 1-CYCLE LOG-LOG GRAPHS 

COMMON IARRAY<12) «ARRAY(6) »LABELS(63) 
DIMENSION XDATAtlOl) •YDATA(lOl) 
READ(3»1) (XDATA(i).tYDATA( I) •I«l».101) 

1 FORMAT(2F5.2) 

C EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 1=1 » 12 
100 IARRAY(I)=FFIN(60) 

DO 200 I=l»6 
200 ARRAY( I )=FFIN(60) 

READ 3»(LABELS( I ) »I«1»60) 
3 FORMAT (20A4) 

DO 300 I=61»63 
300 LABELS( I )=FFIN(60) 

CALL LOG3(XDATA»YDATA5 

DO 400 I=l»101 
400 XDATAd )=YDATA( I ) 

IARRAY(5)=21 

ARRAY(22)=.01 

CALL LO-GC(XOATA»YDATA) ■ 

IF<AXISXY(0»0>0»0»0»0»Q»0»0*0*0»Q) )2»2 

2 CALL EXIT 
END 

t i 

»LOAD>56»2«4 

RUN 

2 101 1 1 11 1 3 2 1 7 10 

10000 100 40000 200 1 1 

Y-AXIS 

X-AXIS 

PLOT 1 - X=Y**2» PLOT 2 - X=Y 

6 6 29 

t t 

♦LOGOFF 
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X=Y**2, PLBT. 2 



X = Y 
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»EQUIP»1=PL0T 

•LABEL* (1)/ SAVE FOR DEAN 

•EQUIP»2=*PLTRTNS 

«EQUIP»3=DATA 

»EQUIP»4=»L0G1 

•FORTRAN.L.X 

PROGRAM TEST4 
C PLOTS A 4-CYCLE SEMI-LOGSCALE GRAPH (VALUES GT AND LE 1) 

COMMON I ARRAY (12) >ARRAY(22) .LABELS (63$ 

DIMENSION XDATA(IOO) #YDATA(100) 

READ(3»1) (XDATACI) »YDATA( I)»I = 1»100) 

1 FORMAK2F5.2) 

C EQUIP.3* YOUR FILE PRIOR TO EXECUTION 

DO 100 1=1 »12 
100 IARRAY( I)=FFIN(60) 

DO 200 1=1.22 
200 ARRAY( I )=FFIN(60) 

READ 3»(LABELS( I ) »I=1»60) 
3 FORMAT(20A4) 

DO 300 I=61»63 
300 LABELS ( I)=FFIN(60) 

CALL LOGKXDATA.YDATA) 

!F(AXISXY(0.0*0»0»G.O>0»0»0#0.0.0) )2»2 

2 CALL EXIT 
END 

t i 

«L0AD»56*2*4 

RUN 

1 100 1 14 1 3 2 1 7 10 

1 .01 .01 ,1 .1 .1 .01 .0001 1111 

Y-AXIS 

X-AX IS 

THIS IS THE PLOT OF Y=X*M2 

6 6 26 
» » 

♦LOGOFF 
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THIS 15 THE PLBT QF Y=X**2 



72. 



MfiiffflMI 

#EDIT 

]FIN,PLT 



3LIST 

00001: 

00002: 

00003: 

00004: 

00005: 

00006:C 

00007: 

00008: 

00009: 

nnn \ a . 

00011: 

00012: 

') 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 



PROGRAM PLT 

COMMON IARRAY(12),ARRAY(22) 

DIMENSION XDATAC10),YDATA(10) 

READ(3,1)(XDATA(I),YDATA(I),I=1,10) 

1 F0RMATC2F5.2) 

EQUIP, 3= YOUR FILE PRIOR TO EXECUTION 

DDT WT J 

3 FORMAT C PLEASE ENTER VALUES FOR INTEGER ARRAYC 12) ' ) 
DO 100 1=1 ,12 

tara t ADD&vr T ^-TITTYf FFTN(60) ) 

4 FORMAT (V THANK YOU, PLEASE ENTER VALUES FOR F.P. ARRAYC22) 

DO 200 1=1,22 
200 ARRAY(I)=FFIN(60) 

DDT MT 5 

5 FORMAT (' THANK YOU. YOUR PLOT IS BEING EXECUTED.') 
CALL MLTIPLT(XDATA,YDATA) 
IF(AXISXY(0,0,0,0»0,0,0,0,0,0,0,0))2,2 

2 CALL EXIT 
END 

FINIS 



]EQUIP,l=PLOT 

]EQUIP,2=PLTB 

]EQUIP,3=DATA 

]EQUIP,4=*MLTIPLT 

]EQUIP,5=*PLTRTNS 

1 

#LABEL,1/SAVE FOR DEAN 

#L0AD,2,4,5 
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RUN 
RUN 



PLEASE ENTER VALUES FOR INTEGER ARRAYC 12) 

<> 1 10 1 9 112 2 1 7 10 

THANK YOU. PLEASE ENTER VALUES FOR F.P. ARRAYC22) 

<> 10 5 .5.5001100111110511 

THANK YOU. YOUR PLOT IS BEING EXECUTED. 

LUN LX LY XTIC XL YL XLOW YLOW 

1 7 10 .500 10.000 5.000 

XORG YORG YTIC NNT 

.500 2 

TYPE IN THE NUMBER OF COLUMNS IN YOUR THREE LABELS 
IN THIS ORDER *** Y-AXIS, X-AXIS, AND PLOT LABELS. FORMAT 312 
060634 

THANK YOU. ON SEPARATE LINES PLEASE TYPE THE LABELS IN 
THAT ^AME ORDER* 
Y-AXIS 
X-AXIS 
TEST PLOT OF *PLTRTNS AND *MLTIPLT 



END OF FORTRAN EXECUTION 

#LOGOFF ^ ■ an 

TIME 9.500 SECOND^ MFBLKS 21 COST $0.89 




TEST PLQT OF *PLTRTNS AND *MLT1PLT 
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MifffOTltMl 

#EDIT 

IT APE 

PROGRAM PIT 

COMMON IARRAYC 12) ,ARRAY(22) ,LAB£LSC$3) 
DIMENSION XDATA(10),YDATA(10) 
DO 100 1=1,10 
XDATA<I)=FFI.N(3) 
100 YDATA('r)=FFIM(3) 
PRINTS . 

3 format c please entetr values for integer arrayc 12) •) 
do 2001 = 1,12 

203 IARRAY<I)=FFIfKS0) 
PRIBT 4 , 

4 FORMATC "THANK YOU. PLEASE ENTER VALUE?: FOR F .P . ARRAY<22)') 
DO .300 1 = 1 .22 

300 ;ARRAYCI) = FFI^(60)- 
PRINT 6 

6 FORMAT C MOW TYPE IN THE Y-AXIS LABEL.*) 
READ 7, (LABELS(I), 1=1,28) 

7 FORMAT (20A 4) 
PRI»T8 

8 FORMAT -</.• THE X-AXIS LABEL*') 
READ 7,(LABEL^(I)',I = 2r,4&) 
PRINT 3 

9 FORMAT </' THE PLOT LABEL.') 
READ 7, (LABELED, 1 = 41 ,60) . 
PRIMT 10 

\Z FORMAT </' FINALLY, TYPE-I.M.THL UUtfBER OF CHARACTERS AND* 
1' SPACED V IN THE ABOVE 3 LABELS 1W THAT SAi.E ORDER.') 
.PO-400 1 = 61,63 
4m \Wtl r ! CI )~FFI $(.£&) 
Pf-Iiil 3 

5 FORMATC TrlAMK YOU. YOUR PLOT IS BEING EXECUTED.*///) 
CALL MLTIPLT(XDATA,YDATA) 

CALL AXISXYC£,0,0,0,0,0,0,0,O,C,£;0) 

CALL EXIT 

Ei-ID 

FINIS 

3 

#LO0OFF 

TIME 4,000 SECONDS TIFBLK^ COST $0.35 

# 
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#EQUIP f l=PLOT 

#EQUIP,2=*MltfiPLT 
#EQ'UIP>3=DATA 
#EQUIP f 4-*PLTRTN c : 
#E<3UIF,5=PLTB 
#LABEL,1/ <*AVE FOR DEA 

#L0AD,2,4,5 

HUN ' . ' 

RUM 



PLEASE ENTER VALUES FOR INTEGER ARRAYC12) 

<> 1 10 I 9 2 

<> 4 1 7 10 

THANK YOU, PLEASE ENTER VALUES FOR F .?. A^RAY (22) 

<> 10 10 ,25 .25 

<> I' .5 1 .5 : 

<> 1 1 10 10 11 

NOW TYPE IN THE Y-AXIS LABEL » 



THE X-AXIS LABEL, 
X-AXI* 

THE PLOT LABEL, 
TELETYPE TEST PLOT 

FINALLY, TYPE IN THE .NUMBER OF.'.CHAH'ACTERV'AND SPACES 

IB THE ABOVE 3 LABEL^ IN THAT SAME' ORDER. 

<> 6 6 18 

THANK YOU. YOUR PLOT IS BEING EXECUTED, .; 



LUN'- LX LY XT1C XL , YL XLOW.. YLOW 

' 1 7 10 .250 10.000 10.000 ,0 

XORG . YORG '"- YTIC NNT 

,250 4 



END OF FORTRAN EXECUTION 

^LOGOFF 

TIME 7,942 SECONDS MFBLKS 14 COST $0.70. 



] . IV 




B.Q 9.0 JO.O 



TELETYPE TEST PLQT 



